home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / irix / scripts / update.hosts < prev   
Encoding:
Text File  |  1994-08-02  |  9.7 KB  |  344 lines
  1. #! /bin/csh
  2. #
  3. # $Id: update.hosts,v 1.16 1994/02/22 21:50:57 carlson Exp carlson $
  4. #
  5. #     Should be run by cron.  Goes out to all the hosts in
  6. #    the .rhosts file and finds those hosts that have the
  7. #    same domain as the local host and makes sure the
  8. #    required files are up-to-date.
  9. #
  10. # Revision History:
  11. #    $Log: update.hosts,v $
  12. # Revision 1.16  1994/02/22  21:50:57  carlson
  13. # Lots of changes.
  14. #
  15. # Revision 1.15  1993/12/16  14:50:07  carlson
  16. # Modified to use rdist instead of doing it all myself.
  17. #
  18. # Revision 1.14.1.1  93/11/17  14:20:00  carlson
  19. # This is an attempt to get this program to use rdist instead of doing
  20. #   the work myself.  Unfortunately, I couldn't get the 'except'
  21. #   clause to work as advertised.
  22. # 
  23. # Revision 1.14  93/11/17  09:35:35  carlson
  24. # Need to compute the number of arguments more than once so set a variable
  25. #   to this value and use the variable.
  26. # Added more files to the list of files not copied.
  27. # Make it so that we can update just one host by specifying it on the
  28. #   command line.
  29. # 
  30. # Revision 1.13  93/08/18  18:08:42  carlson
  31. # Added tuck to the bad hosts list.
  32. # Removed stuff for updating home.
  33. # 
  34. # Revision 1.12  93/06/11  16:34:38  carlson
  35. # Added bikini to bad hosts list.
  36. # 
  37. # Revision 1.11  93/06/02  11:03:52  carlson
  38. # Removed tuck from the bad_hosts list.
  39. # 
  40. # Revision 1.10  93/03/29  09:23:20  carlson
  41. # Added tuck to bad hosts list.
  42. # Added code to send new stuff home whenever it is done.
  43. # 
  44. # Revision 1.9  93/01/06  17:43:13  carlson
  45. # Modified documentation to include log.
  46. # Added documentation.
  47. # Modified so that it can be run interactively.  If it is, then parameters
  48. #   are passed on the command line which list the hosts to update.
  49. # If run interactively, don't ignore 'bad_hosts'.
  50. # Made it so echo and verbose flags can be set and details won't be echoed.
  51. # 
  52. #-----------------------------------------------------------------------
  53.  
  54. cd ~
  55.  
  56. #----
  57. # If there are command line arguments, then this is being run
  58. # interactively and not by cron.  Command line arguments should be the
  59. # hosts to update.  Otherwise, get the hosts from the .rhosts file.
  60. #
  61. # Set 'hosts' to the list of hosts to update.
  62. #
  63.  
  64. set numArgs = $#argv
  65. if ( $numArgs == 0 ) then
  66.     set hosts = `cat ~/.rhosts`
  67. else
  68.     set hosts = ( $argv )
  69. endif
  70.  
  71. #----
  72. # Set various variables:
  73. #
  74. # dirs        Directories in my home directory to copy.
  75. # mydomain    My domain name broken into separate words.
  76. # myhost    The hostname of the machine I'm running this on.
  77. # bad_files    System files NOT to copy.
  78. # bad_hosts    Hosts not to update.
  79. # distFile    Name of file to use for input to rdist
  80. #
  81.  
  82. set dirs = ( emacs scripts )
  83. set mydomain = ( `domainname | awk -F. '{for (x=1;x<NF;x++) printf "%s ",$x; print $NF}'` )
  84. set myhost = `hostname`
  85. set noglob
  86. set bad_files = ( \\\\.gam.* \\\\.cshrc \\\\.login \\\\.newsrc.* \
  87.     \\\\.oldnewsrc \\\\.passwd \\\\.sessionlog \\\\.show_pro \
  88.     \\\\.wshttymode \\\\.version \\\\.xrnsignature \\\\..sav \
  89.     \\\\.grosview \\\\..*_version RCS \\\\.pv.* ~\\\\$ \\\\.insightrc \
  90.     \\\\.emacs_server \\\\.vacation.* \\\\.aub.* \\\\.netlook.* )
  91. set non_toto = ( \\\\.chestrc \\\\.Xdefaults.* \\\\.sgisession )
  92. set toto_only = ( \\\\.auxchestrc \\\\.Sgiresources )
  93.  
  94. unset noglob
  95. if ( $numArgs == 0 ) then
  96.     set bad_hosts = ( frogskin garter capella ghost tuck )
  97. else
  98.     set bad_hosts = ( )
  99. endif
  100.  
  101. set toto_hosts = ( )
  102. set new_hosts = ( )
  103. set old_hosts = ( )
  104. set distFile = /usr/tmp/distfile
  105.  
  106. #----
  107. # For each host, find out what OS it is running and put it into
  108. # the appropriate list.  Skip this host and any host not in my
  109. # domain.
  110. #
  111.  
  112. foreach host ( $hosts )
  113.     set names = `echo $host | awk -F. '{print $1,$2,$3,$4}'`
  114.     if ( $#names > 1 && $numArgs == 0 ) then
  115.     if ( "$names[2]" != "$mydomain[1]" ) continue
  116.     endif
  117.     if ( ! { isIn $names[1] $bad_hosts } ) continue
  118.     if ( "$names[1]" == "$myhost" ) continue
  119.     if ( $numArgs == 0 ) then
  120.     set dname = `domainname`
  121.     else
  122.     set dname = `echo $names[2-] | sed -e 's/ /./g'`
  123.     endif
  124.     set ver = `rsh $host uname -r`
  125.     set vernum = `echo $ver | awk -F- '{print $1}'`
  126.     set vers = `echo $vernum | awk -F. '{print $1,$2}'`
  127.     if ( $#vers < 2 ) then
  128.     echo "Problem getting version of IRIX from $host"
  129.     echo "   ver = $ver, vernum = $vernum, vers = $vers"
  130.     continue
  131.     endif
  132.     if ( "$vers[1]" == "5" ) then
  133.     if ( "$vers[2]" == "2" ) then
  134.         set toto_hosts = ( $toto_hosts $names[1].$dname )
  135.     else
  136.         set new_hosts = ( $new_hosts $names[1].$dname )
  137.     endif
  138.     else
  139.     set old_hosts = ( $old_hosts $names[1].$dname )
  140.     endif
  141. end
  142.  
  143. #----
  144. # Start writing to distFile
  145. #
  146.  
  147. if ( -e $distFile && ! -w $distFile ) then
  148.     echo "${argv[0]}: Unable to write to $distFile"
  149.     echo "${argv[0]}: Giving up"
  150.     exit 1
  151. endif
  152.  
  153. set date = `date`
  154. echo "# Input to rdist - $date" > $distFile
  155. echo "#" >> $distFile
  156.  
  157. #-----
  158. # Actually write out the list of hosts to do.
  159. #
  160.  
  161. if ( $#old_hosts > 0 ) then
  162.     echo "OLDHOSTS = (" >> $distFile
  163.     foreach host ( $old_hosts )
  164.     echo "    $host" >> $distFile
  165.     end
  166.     echo "    )" >> $distFile
  167. endif
  168.  
  169. if ( $#toto_hosts > 0 ) then
  170.     echo "TOTOHOSTS = (" >> $distFile
  171.     foreach host ( $toto_hosts )
  172.     echo "    $host" >> $distFile
  173.     end
  174.     echo "    )" >> $distFile
  175. endif
  176.  
  177. if ( $#new_hosts > 0 ) then
  178.     echo "NEWHOSTS = (" >> $distFile
  179.     foreach host ( $new_hosts )
  180.     echo "    $host" >> $distFile
  181.     end
  182.     echo "    )" >> $distFile
  183. endif
  184.  
  185. #-----
  186. # Get a list of all the files in my home directory to copy.
  187. #
  188.  
  189. set lcl_files = ( `/bin/ls -Ap ~ | grep -v '[/~]$' | grep '^\..*'` )
  190. set lcl_files = ( $lcl_files .icons )
  191. echo "FILES = (" >> $distFile
  192. foreach file ( $lcl_files )
  193.     echo "    $file" >> $distFile
  194. end
  195. echo "    )" >> $distFile
  196.  
  197. #-----
  198. #    Scan through the files in the directory on this host
  199. #    and compare the creation time with the files on the
  200. #    other host.  If the file doesn't exist or is older on
  201. #    the other host, copy it over.
  202. #
  203.  
  204. echo "SUBFILES = (" >> $distFile
  205. foreach dir ( $dirs )
  206.     set files = ( `/bin/ls -Ap ~/$dir | grep -v '[/~]$'` )
  207.     foreach file ( $files )
  208.     if ( "$dir" == "emacs") then
  209.         if ( "$file:e" != "el" && "$file:e" != "elc" ) continue
  210.     endif
  211.     echo "    $dir/$file" >> $distFile
  212.     end
  213. end
  214. echo "    )" >> $distFile
  215.  
  216. #-----
  217. # Get executables to copy.
  218. #    f1 = COFF executables
  219. #    f2 = ELF executables
  220. #    f3 = Anything else
  221. #
  222.  
  223. set f1 = ()
  224. set f2 = ()
  225. set f3 = ()
  226. set files = ( `/bin/ls -Ap ~/bin | grep -v '[/~]$'` )
  227. foreach file ( $files )
  228.     set f = `file ~/bin/$file`
  229.     if ( "$f[2]" == "ELF" ) then
  230.     set f2 = ( $f2 ~/bin/$file )
  231.     else if ( "$f[2]" == "MIPSEB" && "$f[3]" == "COFF" ) then
  232.     set f1 = ( $f1 ~/bin/$file )
  233.     else
  234.     set f3 = ( $f3 ~/bin/$file )
  235.     endif
  236. end
  237.  
  238. if ( $#f1 > 0 ) then
  239.     echo "COFFFILES = (" >> $distFile
  240.     foreach f ( $f1 )
  241.     echo "    $f" >> $distFile
  242.     end
  243.     echo "    )" >> $distFile
  244. endif
  245.  
  246. if ( $#f2 > 0 ) then
  247.     echo "ELFFILES = (" >> $distFile
  248.     foreach f ( $f2 )
  249.     echo "    $f" >> $distFile
  250.     end
  251.     echo "    )" >> $distFile
  252. endif
  253.  
  254. if ( $#f3 > 0 ) then
  255.     echo "OTHFILES = (" >> $distFile
  256.     foreach f ( $f3 )
  257.     echo "    $f" >> $distFile
  258.     end
  259.     echo "    )" >> $distFile
  260. endif
  261.  
  262. set noglob
  263. echo "BADFILES = (" >> $distFile
  264. foreach file ( $bad_files )
  265.     echo "    $file" >> $distFile
  266. end
  267. echo "    )" >> $distFile
  268.  
  269. echo "NTOTOFILES = (" >> $distFile
  270. foreach file ( $non_toto )
  271.     echo "    $file" >> $distFile
  272. end
  273. echo "    )" >> $distFile
  274.  
  275. echo "TOTOFILES = (" >> $distFile
  276. foreach file ( $toto_only )
  277.     echo "    $file" >> $distFile
  278. end
  279. echo "    )" >> $distFile
  280. unset noglob
  281.  
  282. if ( $#old_hosts > 0 ) then
  283.     echo '${FILES} -> ${OLDHOSTS}' >> $distFile
  284.     echo '\texcept_pat ${BADFILES};' >> $distFile
  285.     echo '\texcept_pat ${TOTOFILES};' >> $distFile
  286.     echo "" >> $distFile
  287.     echo '${SUBFILES} -> ${OLDHOSTS}' >> $distFile
  288.     echo '\texcept_pat ${BADFILES};' >> $distFile
  289.     echo '\texcept_pat ${TOTOFILES};' >> $distFile
  290.     echo "" >> $distFile
  291.     echo '${COFFFILES} -> ${OLDHOSTS}' >> $distFile
  292.     echo '\texcept_pat ${BADFILES};' >> $distFile
  293.     echo '\texcept_pat ${TOTOFILES};' >> $distFile
  294.     echo "" >> $distFile
  295.     echo '${OTHFILES} -> ${OLDHOSTS}' >> $distFile
  296.     echo '\texcept_pat ${BADFILES};' >> $distFile
  297.     echo '\texcept_pat ${TOTOFILES};' >> $distFile
  298.     echo "" >> $distFile
  299. endif
  300.  
  301. if ( $#toto_hosts > 0 ) then
  302.     echo '${FILES} -> ${TOTOHOSTS}' >> $distFile
  303.     echo '\texcept_pat ${BADFILES};' >> $distFile
  304.     echo '\texcept_pat ${NTOTOFILES};' >> $distFile
  305.     echo "" >> $distFile
  306.     echo '${SUBFILES} -> ${TOTOHOSTS}' >> $distFile
  307.     echo '\texcept_pat ${BADFILES};' >> $distFile
  308.     echo '\texcept_pat ${NTOTOFILES};' >> $distFile
  309.     echo "" >> $distFile
  310.     echo '${COFFFILES} -> ${TOTOHOSTS}' >> $distFile
  311.     echo '\texcept_pat ${BADFILES};' >> $distFile
  312.     echo '\texcept_pat ${NTOTOFILES};' >> $distFile
  313.     echo "" >> $distFile
  314.     echo '${ELFFILES} -> ${TOTOHOSTS}' >> $distFile
  315.     echo '\texcept_pat ${BADFILES};' >> $distFile
  316.     echo '\texcept_pat ${NTOTOFILES};' >> $distFile
  317.     echo "" >> $distFile
  318.     echo '${OTHFILES} -> ${TOTOHOSTS}' >> $distFile
  319.     echo '\texcept_pat ${BADFILES};' >> $distFile
  320.     echo '\texcept_pat ${NTOTOFILES};' >> $distFile
  321.     echo "" >> $distFile
  322. endif
  323.  
  324. if ( $#new_hosts > 0 ) then
  325.     echo '${FILES} -> ${NEWHOSTS}' >> $distFile
  326.     echo '\texcept_pat ${BADFILES};' >> $distFile
  327.     echo "" >> $distFile
  328.     echo '${SUBFILES} -> ${NEWHOSTS}' >> $distFile
  329.     echo '\texcept_pat ${BADFILES};' >> $distFile
  330.     echo "" >> $distFile
  331.     echo '${COFFFILES} -> ${NEWHOSTS}' >> $distFile
  332.     echo '\texcept_pat ${BADFILES};' >> $distFile
  333.     echo "" >> $distFile
  334.     echo '${ELFFILES} -> ${NEWHOSTS}' >> $distFile
  335.     echo '\texcept_pat ${BADFILES};' >> $distFile
  336.     echo "" >> $distFile
  337.     echo '${OTHFILES} -> ${NEWHOSTS}' >> $distFile
  338.     echo '\texcept_pat ${BADFILES};' >> $distFile
  339.     echo "" >> $distFile
  340. endif
  341.  
  342. rdist -y -f $distFile | grep -v '^Warning'
  343. # rdist -y -f $distFile 
  344.